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Avant-Propos 


Les jeux présentés dans ce livre utilisent des fonctions propres à 
votre micro-ordinateur : son, couleur, graphisme haute résolution, 
caractères graphiques définis par l'utilisateur, etc. Pour cette raison, 
ces programmes ne fonctionnent que sur l’'Atmos et sont difficilement 
adaptables à des matériels différents. En particulier, la plupart de ces 
jeux ne fonctionnent pas sur l'Oric 1. Il est cependant possible de trans- 
former l'Oric 1 en Atmos. (Consultez votre revendeur.) 

Au-delà du jeu lui-même, l'étude de ces programmes vous ensei- 
gnera de nombreuses techniques de programmation qui vous seront 
très utiles pour développer vos propres programmes. 








NOTES CONCERNANT LES PROGRAMMES 


Les programmes doivent être tapés tels qu'ils sont reproduits. Ils 
doivent être enregistrés sur cassette pour éviter d'avoir à les retaper 
à chaque utilisation. Utilisez pour cela l'instruction 


CSAVE ‘ < nom > ”’,S 


en remplaçant < nom > par le nom du programme à enregistrer. 
Exemple : pour enregistrer le programme BLITZ, tapez 


CSAVE “BLITZ”,S 


et pressez la touche RETURN après avoir appuyé sur les touches PLAY 
et RECORD du magnétophone. Pour recharger un programme, rem- 
bobinez la cassette jusqu’au début du programme (certains magnéto- 
phones possèdent un compteur, très utile si vous avez pris soin de noter 
le nombre indiqué avant l'enregistrement) et tapez CLOAD 
< nom > ”,S. Si vous voulez, par exemple, recharger le programme 
BLITZ, tapez 


CLOAD ‘“BLITZ”,S 
et pressez la touche RETURN. 


Afin de réduire au maximum les risques d'erreurs, les listings des 
programmes ont été reproduits par photographie. Si vos programmes 
ne fonctionnent pas, vérifiez-les attentivement en considérant plus par- 
ticulièrement les points suivants : 


— lignes oubliées, 

— numéros de lignes erronés, 

— erreurs de frappe (attention en particulier à ne pas confondre 
la lettre O et le chiffre O ou la lettre | et le chiffre 1). 








Grâce à votre ordinateur, vous pouvez jouer au squash assis dans 
un fauteuil. La raquette se déplace à l’aide des touches de contrôle 
du curseur. Vous disposez de dix balles que vous devez garder en jeu 
le plus longtemps possible. Chaque balle renvoyée rapporte un point. 


10 REM HR#RRRRUEUNR EX 

20 REM # SOUASH « 

SO REM HARRIS 

40 PRINT CHR#(17) 

50 GOSUR 7530 

200 PLOT BX,ERY,N# 

230 EBX=EX+DX 

240 BY=ERY+DY 

260 PLOT EX,BY,B# 

270 IF BY<524 THEN 300 

280 IF ABS(EX-RX-5)>1 THEN 410 
285 S=S+1 

290 PING 

295 DY=-DY 

300 IF BY=2 THEN FING:DY=-DY 
310 IF EX=5 OR BX=56 THEN FING:DX=-DX 
3515 D$=KEV# 

320 D=2#((D#=G#)-(D#=X#)) 

330 RX=RX+D 
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540 
350 
380 
400 
410 
420 
440 
450 
460 
470 
910 
320 
330 
560 
380 
610 
620 
640 
650 
660 
670 
6B0 
6970 
700 
710 
715 
720 
724 
725 
726 
727 
728 
730 
735 
740 
745 
7350 
755 


IF RX<O THEN RX=0 
IF RX>33 THEN RX=33 

PLOT RX,RY,R# 

GOTO 200 

NE=NB+1 

IF NB=1i THEN 530 

PLOT BX,BY,N$ 

ZAP 

WAIT 100 

PLOT RX+2,RY,N#+NS+NE 
GOSUB 920 

GOTO 200 

IF S>Ri THEN Ri=S 

PRINTE 13,5; "SCORE :":S 
PRINTE 13,103; "RECORD :";Ri 
PRINT 13,15; "UNE AUTRE 7" 
NE=0 

S=0 

REFEAT 

DH=KEYS# 

UNTIL D$="" 

REPEAT 

D$=KEY$ 

UNTIL D$<>"" 

IF D#<>"N" THEN 50 

PRINT CHR#(17) 

CLS 

PAPER 7 

INK © 

POKE #24E,30 


POKE #24F,4 
END 

CLS 

POKE #24E,1 
PAPER 4 
POKE #24F,1i 
INK 5 


RESTORE 


SQUASH 11 





760 
770 
780 
790 
800 
810 
815 
820 
830 
4) +CH 
840 
950 
855 
8640 
865 
870 
875 
880 
920 
930 
940 
950 
760 
970 
980 
990 
1000 
1980 
2000 
2010 
2020 


2050 : 


FOR 1=0 TO 39 
READ A 

POKE 46808+1,A 

NEXT I 
B3#$=CHRS (91) +CHRS# (92) 
G$=CHRS (8) 

XH=CHRE (9) 

N$=CHRE (32) 

RF=CHRS (18) +CHRS (1) +CHRS# (94) +CHRE (9 
R$ (94) +NH+NS 

B+=CHRS# (95) 

FOR I=2 TO 37 

PLOT I,1,CHR$ (92) 

NEXT I 

FOR I=2 TO 24 

PLOT 2,1,CHR# (95) 

PLOT 37,1,CHR# (91) 

NEXT I 

RX=16 

RY=25 

RY=24 

BX=INT (RND{1)#31+6) 
DY=-1 
DX=(INT(RND(1)#2)-0.5) #2 
FLOT 0,26,CHR# (18) 

PLOT 0,25,CHR# (18) 


RETURN 
DATA. 32,52,32,32,20 39 30,39 
DATA 0,0,0,0,0,0,0,6 

DATA 1,1,1,1,1,1,1,1 

DATA 63,63,63,0,0,0,0,0 

DATA 0,30,63,63,62%,63,20,0 





= 





Votre mission est de détruire la ville que vous survolez afin de pou- 
voir atterrir. À chaque passage, votre avion vole un peu plus bas. Vous 
ne pouvez larguer une bombe (en appuyant sur une touche quelcon- 
que) que lorsque la bombe précédente a atteint son objectif ou le sol. 
Lorsque votre avion a atterri (ou lorsqu'il s'est écrasé contre un immeu- 
ble), le score est affiché ainsi que le record du jour. Si ce jeu vous paraît 
trop difficile, vous pouvez changer les limites de la ville (30 et 10, ligne 
840). 


10 REM HERRKEREHE 

20 REM + BLITZ +# 

30 REM #K##HHKHENE 

40 GOSUR 640 

99 S=0 

680 GOSUR 770 

76 FOR HY=0 TO 26 

806 FOR HX=0 TO 39 

150 PLOT HX,HY,AF 

150 IF HX5335 THEN 170 

160 IF SCRN (HX+4,HY)=95 THEN 270 

170 IF KEY#<>"" AND EHY=0 AND HX£539 THE 
N BX=HX+1:EY=HY+1: SHOÛT 

180 IF BY<>0 THEN GOSURB 550 ELSE GOSUR 
610 

190 NEXT HX 

220 NEXT HY 

2350 FOR 1=0 TO 500 





14 


240 
2530 
2533 
2860 
265 
270 
290 
3500 
510 
320 
3350 
335 
340 
350 
3560 
3570 
380 
370 
400 
410 
420 
4530 
440 
450 
460 
990 
560 
570 
980 
600 
610 
620 
630 
640 
660 
680 
6970 
700 
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NEXT I 

S=S+40#HY+HX 

INK 1 

CLS 

GOTO 60 

S=SG+40+HY+HX 

PLOT BX,HBI,N# 

EXPLODE 

WAIT 100 

IF S>R THEN R=S 

PRINTS 5,1; "SCORE :"3:5S;: 
PRINT& 25,1; "RECORD :"3R 
REPEAT 

R#=KEYS 

UNTIL KEY#$="" , 
PRINTS 13,10; "UNE AUTRE 7" 
REPEAT 

R$=KEYS 

UNTIL R#<3"" 

IF R#<È"N" THEN 50 
PAPER 7 

INE © 

CLS 

PRINT CHR#(17); 

END 

IF BY>26 THEN BY=0 
PLOT BX,B1,N# 

Bi=BY 

IF BY<>0 THEN PLOT BX,BY,B#:BY=BY+1 
RETURN 

FOR I=1 TO 10 

NEXT I 

RETURN 

PRINT CHR#(17);: 

PAPER 0 

FOR 1I=0 TO 39 

READ À 

POKE 46808+I,ûA 


BLITZ 15 





710 
720 
S) 
730 
740 
745 
760 
770 
780 
790 
840 
850 


880 
890 
900 
910 
920 
930 
940 


NEXT I 
AF=CHRS (2) +CHRS (91) +CHR$# (92) +CHRE (9 


I$=CHRS (3) +CHR$ (95) 

NH=CHRS# (3) 

B$=CHRS# (94) 

RETURN 

CLS 

INK 1 

Bi=BY 

FOR I1=350 TO 10 STEP —1i 

FOR J=26 TO INT(RND(1)#9)+12 STEP — 


PLOT I,J9,1# 
NEXT J 

NEXT I 

BX=0 

BY=0 

Bi=BY 
RETURN 


1000 DATA 0,0,32,48,56,63,63,63 
0,0, 


1010 DATA 


0,0,0,63,63,63 


1020 DATA 0,0,0,0,0,48,60,62 
1030 DATA 14,14,4,14,14,14,14,4 
1040 DATA 63,41,41,41,63,63,653,63 








« v Les se k e | 


our J 2 ee 
TS ET 


Les rôles sont maintenant inversés. Vous manœuvrez la D.C.A. et 
devez essayer d'abattre les avions qui passent au-dessus de vous. Pour 
tirer, utilisez n'importe quelle touche. Vous disposez au départ de quinze 
missiles. Si vous abattez dix avions, vous obtenez un bonus de dix 
points et dix missiles supplémentaires. 


10 REM RKRK#KHEHHIEX 

20 REM * D.C.A. *# 

50 REM KRKRRHKHEHEHE 

40 PRINT CHR#(17) 

50 GOSUB 450 

60 AF=RIGHT#(A$,1)+LEFT#(A$S,37) 

70 B$=RIGHT$(B#,37)+LEFT#(B#$,1) 

80 PLOT 2,1,40# 

90 PLOT 2?,5,B# 

130 R$=-KEY# 

140 IF R#<>"" AND MY=26 THEN MY=24:M#$=M 
15: NM=NM-1: SHOOT 

160 IF MY<>26 THEN MY=MY-2:PLOT MX,MY,M 
+: PLOT MX,MY+2,N$ 

170 IF MY<>4 THEN 270 

180 IF SCRN(MX,3)=32 THEN 270 

185 EXPLODE 
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190 
195 
200 
210 
220 
240 
250 
260 
270 
280 
2845 
290 
295 
300 
310 
320 
330 
3540 
360 


PLOT MX-3,3,CHR$ (1) 

PLOT MX+3,3,CHR$# (3) 

PLOT MX,3,E$ 

PLOT MX,MY,N# 

WAIT 30 

S=5+1 
B#=LEFTS(B$,15)+01#+RIGHT# (B$,19) 
GOTO 360 

IF MY<>2 THEN 390 

IF SCRN(MX,1)=32 THEN 390 
EXPLODE 

FLOT MX+3,1,CHR$# (3) 

PLOT MX-3,1,CHR$# (1) 

PLOT MX,1,E$ 

S=5+1 

PLOT MX,MY,N$ 

WAIT 30 

A$=LEFTS (A$,15)+01#+RIGHT$ (A$,19) 
IF S>i AND S/10=INT(S/10) THEN GOSU 


B 590 


370 
380 
3970 
400 
410 
450 
=M2$ 
440 
450 
460 
470 
480 
490 


500 
910 
920 
9330 


MY=26 

MF=M2$ 

PRINTE 8,24;5S 

PRINTE 15,25: NM 

IF NM<1 AND MY=26 THEN 450 

IF MY<=2 THEN PLOT MX,2,N#$:MY=26: M$ 


GOTO 60 

IF S>R THEN R=S 

REPEAT 

R$=KEYS$ 

UNTIL R$="" 

PRINTE 6,10; "SCORE :";:5S,"RECORD :°"; 


PRINT& 14,14; "UNE AUTRE 7?" 
REPEAT 

R$F=KEYS 

UNTIL R#<>"" 


540 
990 
560 
370 
975 
580 
590 
600 
620 
630 
640 
630 
6860 
670 
675 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 


D.C.A. 19 


IF R#$<>"N" THEN 50 
CLS 

PAPER 7 

INK O 

PRINT CHR#(17) 
END 

A$=A1$ 

B$=B1$ 

NM=NM+ 10 

S=5+10 

RETURN 

CLS 

PAPER 4 

INK 1 

RESTORE 

PLOT 1,1,CHR$# (3) 
PLOT 1,3,CHR$ (3) 
FOR 1=0 TO 55 
READ A 

POKE 46808+1,4 
NEXT I 

S=0 

A+$= “u 

B+$= uu“ 

N$=CHRS (32) 

FOR I=i TO 5 
A$=AS+CHRS (91) +CHRS (92) +NS+NSENS ENS 


+NS+N# 


800 


B$=B#S+CHRE (93) +CHR# (94) +NS+NS+ENS+NE 


+NF+NS 


810 
820 
830 
840 
850 
860 
870 
2) 


NEXT I 

A$=LEFT#(A#,38) 

B$=LEFTS$(B#,38) 

A1$=A$ 

B1+=-B# 

E$="#" 

J$=CHRSE (2) +CHRS# (95) +CHRS# (96) +CHRS (9 
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oo 


880 
890 
900 
705 
910 
915 
920 
950 
940 
950 
960 
970 
980 
985 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


MX=19 

MY=26 

M1$=CHRS# (97) 

MZ#$=CHR$ (96) 

NM=15 

M$=M2# 

D1H=NSENE+NEENS 

PLOT MX-2,MY,J$ 

PLOT 1,1,CHR$# (3) 

PLOT 2,1,4# 

PLOT 1,3,CHR$ (3) 

PLOT 2,3,B#$ 

PRINTE 1,245; CHR$# (5) ; "SCORE 2" 
PRINTE 1,25; CHR# (5) ; "MISSILE(S) :" 

RETURN 

DATA 0,1,48,49,63,63,16,0 
DATA 0,62,36,62,63,63,62,24 
DATA 0,31,9,31,63,63,31,6 
DATA 0,32,3,35,63,63,2,0 
DATA 0,0,0,0,0,63,63,63 
DATA 30,30,30,63,63,63,63,63 
DATA 4,14,14,14,14,14,4,14 

















Le voleur s'est échappé, emportant le magot. (Il est représenté par 
un masque rouge.) Il se cache dans la ville et vous avez trente minutes 
pour le débusquer et l'arrêter. Attention, pas de précipitation ! En effet, 
si vous vous jetez sur lui sans réfléchir, il y a toutes les chances pour 
qu'il vous file entre les doigts. La meilleure façon de vous y prendre 
est de l'aborder de côté. (Efficace à tous les coups à condition de ne 
pas le rater !) Si vous ne vous sentez pas assez sûr de vous, attaquez- 
le de face, ce qui est plus facile mais moins efficace car moins discret. 
Encore un conseil : n'essayez pas de le poursuivre ; cela ne vous mène- 
rait à rien car il est aussi rapide que vous. Observez plutôt ses mouve- 
ments comme un vrai détective. Quand vous le verrez tourner en rond, 
approchez-vous sans faire de bruit et surgissez au bon moment. Mais 
rappelez-vous, le temps presse | 

Pour vous déplacer, utilisez les touches suivantes : 


<W > : haut 
<A> : gauche 
<S> : droite 
<Z> :bas 


10 REM HART 

20 REM * FOURSUITE *# 

30 REM HR 

50 GOSUR 13520 

60 S=û 

100 GOSUB 820 

120 DHF=KEYS$ 

130 PX=PX+(D$="A")-(D#="S") 
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140 
150 
160 


370 
3890 
3970 
400 
410 
420 
460 
470 
480 
4970 
300 
905 
910 
920 
330 
540 
360 
570 
380 
3970 
600 
610 
620 
630 
640 
645 
650 
655 
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PY=PY+ (D#="W")—(D#="7") 
Z=Z-0.2 

PRINTE 15,25: "TEMPS :"3INT(Z+1) 
IF Z<O0 THEN 500 

C=SCRN(PX,PY) 

IF C=91 THEN 1270 

IF C£>22 THEN PX=XP:PY=YP 

PLOT XP,YP,N# 

PLOT PX,PY,P# 

YP=PY 

XP=PX 

VX=VX+EX 

VY=VY+CY 

IF SCRN(VX,VY)<332 THEN GOSUR 660 
IF SCRN(VX,VY)<>32 THEN 380 
PLOT XV, YV,NS 

PLOT VX, VY, VS 

XV=VX 

YV=UY 

GOTO 120 

WAIT 300 

IF KEY#<>"" THEN 500 

IF R<S THEN R=S 

PLOT 10,6,"TEMPS ECQULE" 

PFLOT 10,10,"SCORE : "+STR$# (5) 
PLOT 10,14,"RECORD : "+STRS#(R) 
PLOT 10,18,"UNE AUTRE ?" 
REPEAT 

D$+=KEYS# 

UNTIL D$<>"" 

IF D#<>"N" THEN PRINT CHR#(17) ; : RUN 
POKE #24E,30 

POKE #24F,5 

PRINT CHR#(17); 

CLS 

PAPER 7 

INK © 

END 


660 
670 
680 


POURSUITE 25 


DT=DT+1 
GOSUB 770 
IF SCRN(XV+CX,YV+CY)=52 THEN VX=XU+ 


CX: VY=YVU+CY: RETURN 


690 
700 
710 


DT=DT-2 
GOSUB 770 
IF SCRN(XV+CX,YV+CY)=32 THEN VX=XV+ 


CX:VY=YV+CY:RETURN 


720 
7350 
740 
730 
760 
770 
780 
790 
800 
810 
820 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
9750 
760 
970 
980 
990 


DT=DT-1 
GOSUB 770 

VX=XV+CX 

VY=YV+CY 

RETURN 

IF DT>4 THEN DT=DT-4 
IF DT<i THEN DT=DT+4 
CX=(DT=1)-(DT=3) 
CY=(DT=2) -(DT=4) 
RETURN 

CLS 

FOR VX=2 TO 37 

PLOT VX,1,B# 

PLOT VX,24,B# 

NEXT VX 

FOR VY=2 TO 23 

PLOT 2,VY,B# 

PLOT 37,VY,B# 

NEXT VY 

FOR VX=1 TO 150 
GOSUB 1230 

PLOT PX,PY,0# 

NEXT VX 

GOSUB 1230 

VX=PX 

VY=PY 

PLOT VX, VY,VE 


1000 XV=VX 
1010 YV=VY 
1020 GOSUB 12350 
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1030 
1040 
1050 

1060 
1230 
1235 
1240 
1250 
1260 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1320 
1330 
1340 
1350 
1355 
1360 
1365 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
2000 
2010 
2020 
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PLOT PX,PY,P# 

XP=PX 

YP=PY 

Z=30 

REPEAT 
PX=INT (RND (1) #34) +3 
PY=INT (RND (1) #22) +2 
UNTIL SCRN(PX,PY)=32 
RETURN 

FOR I=1 TO 5 

MUSIC 1,2,3,15 

WAIT 50 

MUSIC 1,2,1,15 

WAIT 50 

NEXT I 

MUSIC 1,1,1,0 

S=5+1 

GOTO 100 

CLS 

PAPER 4 

INK 1 

PRINT CHR#(17) 

POKE #24E,1 

POKE #24F,1 

POKE #26A,PEEK(#264)0R 8 
RESTORE 

FOR 1=0 TO 23 

READ A 

POKE 46808+1,A 

NEXT I 

VS=CHRS (91) 

P#=CHRS$ (92) 

O$=CHRS# (221) 

B$=CHR$# (160) 

N$=CHRS (32) 

RETURN 

DATA 30,63,45,63,30,30,30,0 
DATA 28,28,8,62,8,8,20,20 
DATA 63,03,63,63,63,63,603,63 











Partez aux sports d'hiver sans risque de vous casser une jambe ! 
Lancez-vous du haut de la piste et essayez de passer le plus grand nom- 
bre possible de portes sans heurter les piquets. Frappez n'importe quelle 
touche pour changer de direction. 


10 REM HRRHEHRERRE 

20 REM * SLALOM *# 

SO REM HERKHEREREE 

50 GOSUE 460 

60 FOR K=1 TO 300 

90 IF Ki=ié6 AND (K-5)/10=INT((K-5)/10)T 
HEN GOSUB 360 

100 IF K<284 AND K/I1O0=INT(K/10) THEN GO 
SUB 380 

110 IF KEY#<>"" THEN DX=-DX 

120 S1=8X 

130 SX=SX+DX 

140 IF SX<2 THEN SX=2:DX=-DX 

150 IF SX>37 THEN SX=27:DX=-DX 

160 PLOT Si,SY,N# 

170 PRINTE 38,26; N# 

180 PLOT S5X,SY,S#$(DX/2+0.5) 
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1970 
200 
HT) 
210 
220 
230 
240 
230 
260 
270 
280 
290 
506 
310 
320 
3560 


NEXT K 
PLOT 8,15,"PORTE(S) RATEE(S) :"+STR 


PLOT 8,18,"UNE AUTRE DESCENTE 7" 
REPEAT 

D+t=KEV# 

UNTIL D$="" 

REPEAT 

Dt=KEY# 

UNTIL D#<5"" 

IF D#<?"N" THEN PRINT CHK# (17) : RUN 
INK 0 

PRINT CHR#(17) 

CLS 

END 

IF SCRN(SX-1,SY)=923 AND SCRN(SX+2,5S 


V)=94 THEN 3575 


385 


IF SCRN(SX-2,S5Y)=95 AND SCRN(SX+1,5 


V)=94 THEN 3575 


570 
372 
3575 
380 
390 
400 
410 
420 
450 
460 
470 
480 
4970 
500 
310 
320 
30 
9340 


9930 


T=T+i 
ZAP 

RETURN 

F=P+ (INT (RND(1)#3)—1) #8 
IF P£2 THEN P=10 

IF P>34 THEN F=26 

PLOT P,26,P# 

PLOT 1,26,CHR#(1) 
RETURN 

CLS 

PAPER 7 

INK 4 

PRINT CHR#(17) 

FOR I1=0 TO %1 

READ A 

POKE 46808+1I,4 

NEXT I 

S+ (0) =CHR# (91) 

S$ (1) =CHRE (92) 


560 
370 
580 
5970 
600 
6i0 
620 


NE=CHRE (32) 
P#H=CHRE (93) +N#+N#E+CHRS (94) 
DX=-1 

SY=11 

Sx=19 

P=18 

RETURN 


1000 DATA 4,56,17,26,4,8,16,22 
1010 DATA 8,7,34,22,8,4,2,1 
1020 DATA 12,28,12,4,4,4,4,4 
1030 DATA 6,7,6,4,4,4,4,4 


SLALOM 
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Voici une curieuse façon d'utiliser un ordinateur : vous devez vous 
efforcer de ramasser le plus vite possible les miettes qui jonchent la 
nappe. Vous disposez de 30 secondes pour un nettoyage complet. Les 
miettes sont représentées par des points bleus. Les touches < W > à 
<A>,<S> et <Z> vous permettent de contrôler votre ramasse- 
miettes. 


10 REM MMM RENE 

20 REM * RAMASSE-MIETTES * 

SO REM HOME EURE NE 

40 PRINT CHR$#(17) 

70 GOSUB 330 

100 PRINTE 7,25; "TEMPS :"3INT(Z) ,"SCORE 
s"s5S 

120 IF Z<i THEN 820 

140 D$#=-KEY$ 

150 XP=PX 

160 YP=PY 

170 PX=PX+(D$="A")-(D#=-"S") 

180 PY=PY+(D#$="W")—(D#="7") 

210 IF SCRN(PX,PY)=219 THEN FX=XP:PY=YP 
220 IF SCRN(PX,PY)=92 THEN ZAP:S=S+1: X= 
X+i 

240 PLOT XP,YP,N# 

260 PLOT PX,PY,J# 

270 Z=Z-0. 1 
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—@— 


300 
310 
3350 
540 
345 
3550 
360 
570 
580 
400 
410 
420 
420 
440 
480 
470 
300 
910 
320 
925 
9350 
540 
Jo0 
560 
970 
580 
370 
600 
650 
660 
670 
680 
6970 
700 
710 
720 
736 
740 


IF X=NM THEN 970 
GOTO 100 

PAPER 5 

INK 4 

RESTORE 

FOR 1=0 TO 15 

READ A 

POKE 46808+1I,A 

NEXT I 

CLS 

NH=CHRS (32) 

B$=CHRS$ (219) 
J$=CHR$ (160) 
M$=CHRS# (92) 

S=0 

NM= 10 

X=0 

POKE #24E,i 

POKE #24F,1 

POKE #26A,PEEK (#26) OR 8 
FOR PX=2 TO 37 

PLOT PX,1,8# 

FLOT PX,24,B$ 

NEXT PX 

FOR PY=2 TO 23 

PLOT 2,PY,E# 

PLOT 37,PY,B$ 

NEXT FY 

FOR I=i TO NM+i 
REPEAT 
PX=INT (RND (1) #34) +3 
PY=INT {RND (1) #22) +2 
UNTIL SCRN(PX,PY)=32 
PLOT PX,PY,M# 

NEXT I 

PLOT PX,PY,J$ 

Z=30 

RETURN 


RAMASSE-MIETTES 
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820 
850 
840 
850 
880 
870 
880 
890 
700 
910 
920 
925 
950 
955 
940 
950 
955 
980 
970 
980 


WAIT 300 
REPEAT 

D$=KEY+# 

UNTIL D$="" 

IF S>R THEN R=S 
PLOT 13,10,"RECORD 


2: "+STRE(R) 


FLOT 13,16,"UNE AUTRE 7" 


REPEAT 
D$=KEY# 

UNTIL D#<>"" 

IF D$<>"N" THEN 90 
CLS 

PAFER 7 

INK © 

PRINT CHR$# (17) 
FOKE #24E,30 

POKE #24F,5 

END 

NM=NM+1 

PLOT PX,PY,N# 


1000 GOSUB 500 
1010 GOTO 100 
2000 DATA 63,63,63,63,63,63,63,63 
2010 DATA 0,0,0,12,12,0,0,0 








Le joueur et l'ordinateur s'affrontent pour se partager l'espace vital. 
Chacun doit s’efforcer, tout en se déplaçant, de ne jamais recouper 
sa trace ou celle de son adversaire, et de ne pas sortir du rectangle 
dessiné sur l'écran. Utilisez les touches <P>, <L> , <;> et 
<.>. 


10 REM HR#HKHERX 

20 REM * TRACE * 

350 REM KkKR#HEHEEE 

50 GOSUB 750 

60 DF=KEY# 

80 HB=(D#="L")-(D#="3:") 

70 VB=(D$="P")-(D#=".") 

100 IF HB<>O THEN H?=HB:V2=0 

110 IF VEB<ÿO THEN V2=VEB:H2-0 

120 XZ=X2+H2 

150 YZ=V2+V2 

140 IF SCRN(X2,Y2)€>37 THEN 410 

150 PLOT X2,Y2,J2# 

160 IF SCRN(X1+Hi,YI+V1)=32 THEN 300 
170 IF Vi=0 THEN 240 

180 Vi=0 

190 HI=(INT(RND(1)#2)-0.5) +7 

200 IF SCRN(XI1+H1,Y1+V1)3=32 THEN 300 
210 Hi=-Hi 

220 IF SCRN(X1+H1,Y1+V1)=-37 THEN 300 
250 GOTO 350 

240 Hi=üû 

250 VI=CINT(RND(1)#27)-0.5)+#7 

260 IF SCRN(XI1+H1,Y1+V1)=32 THEN 300 
270 Vi=-vi 


38 





JEUX EN BASIC SUR ATMOS 


————Z— 


280 
290 
300 
310 
320 
340 
350 
360 
370 
375 
380 
385 
390 
400 
410 
420 
430 
435 
440 
445 
450 
480 
470 
480 
490 
500 
540 
550 
560 
800 
810 
820 
830 
635 
840 
845 
850 
860 
865 


IF SCRN(X1+H1,Y1+V1)=32 THEN 300 
GOTO 350 

X1=X1+H1 

Yi=Y1+Vi 

PLOT Xi,Y1,J1# 

GOTO 60 

F2=F2+1 

GOSUB 4690 

IF F2=10 THEN 470 

REPEAT 

D$=KEY# 

UNTIL D$="" 

GOSUE 895 

GOTO 60 

Fi=Fi+i 

GOSUB 690 

IF Fi=10 THEN 540 

REPEAT 

Dé=HEY$ 

UNTIL D$="" 

GOSUE 870 

GOTO 60 

CLS 

FPLOT 12,5,"LE JOUEUR GAGNE" 

PLOT 15,10,STR#(F2)+" A"4STRS (F1) 
GOTO 600 

CLS 

PLOT i1,5,"L'ORDINATEUR GAGNE" 
PLOT 15,10,STR#(F1)+" A"4+STR$ (F2) 
FLOT i4,15,"UNE AUTRE ?" 

REFEAT 

D$=KEY# 

UNTIL D$="" 

REFEAT 

D+=KEY# 

UNTIL D#<>"" 

IF D$<>"N" THEN PRINT CHR$# (17) : RUN 
POKE #24F,5 


CLS 


TRACE 39 


————————_—_—_—]— 


670 
675 
680 
685 
670 
700 
710 
750 
760 
770 
780 
820 
840 
850 
860 
870 
880 
890 
895 
700 
910 
92 
920 
940 
950 
760 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


PRINT CHR$#(17) 
PAFER 7 

INE © 

END 

EXPLODE 

WAIT 2300 

RETURN 

CLS 

FAFER 4 

INK 5 

PRINT CHR$ (17) 
FOR I=0 TO 7 
POKE 46808+1I,463 
NEXT I 
B$=CHR# (160) 
N$=CHRE (32) 
Ji$=CHR# (91) 
J2$=CHR$# (219) 
CLS 
FOR 1=2 TO 37 
PLOT I,1,B# 
FLOT 1,25,B# 
NEXT I 
FOR I=2 TO 24 
PLOT 2,1,B# 
PLOT 27,1,B+# 
NEXT I 
FLOT 2,26,"ORDINATEUR "+STR#(F1) 
FLOT 28,26,"JOUEUR :"+STRS# (F2) 
X1=8 

Y1=13 

X2=3? 

Y2=13 

Hi=1 

Vi=0 

H2=-1 

V2=0 

RETURN 





Essayez de suivre la route avec votre tank tout en évitant les mines 
qui s’y trouvent placées au hasard par l'ordinateur. Pour vous diriger, 
utilisez les touches <,> et <.>. Si le passage est bloqué, vous 
pouvez faire sauter une ou plusieurs mines en tirant un de vos dix obus 
(frappez la barre d'espacement). 


10 REM ###RKHEX 
20 REM + TANK +# 

SO REM #h##HHNX 

930 GOSUB 740 

120 X$=KEYS 

1350 TX=TX+(XHF=-G#) -(XH-D#) 
140 PLOT X,Y,N# 

150 PRINT R& 

160 IF SCRNITX,TY)<>32 THEN 430 
200 PLOT TX,TY,T+# 

220 IF X$=N$ THEN GOSUR 360 
230 X=TX 

240 Y=TY 

260 PO=INT(RND(1)#7)+17 

280 PLOT P0,25,M$ 

290 PO=INT(RND(1)#7)+17 

300 PLOT PF0,25,M# 

320 S=5+i 

330 FOR I=1i TO DL-S 

340 NEXT I 
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810 


GOTO 120 

IF OB=0 THEN 420 
OE=0B-1 

SHOOT 

FOR I=i TO 5 

PLOT TX,TY+I,N# 
NEXT I 

RETURN 

PLOT TX,TY,CHR#(219) 
EXPLODE 

WAIT 3506 

IF SR THEN R=S 
PLOT 10,10,"SCORE : "+STR# (5) 
PLOT 9,14,"RECORD 3: "+STR#{(R) 
PLOT 9,18,"UNE AUTRE 7" 
REPFEAT 

XF=KEYS 

UNTIL X#&="" 

REPERAT 

*AF=KREYS 

UNTIL X#<2"" 

IF X#<FUN" THEN 706 
CLS 

FAPER 7 

INE G 

PRINT CHR#(17) 

END 

CLS 

GOSUB 950 

GOTO 120 

CLS 

PAPER 3 

INK G 

FRINT CHR#i17) 

FOR I1=0 TO 7 

RERD À 

POKHE 46808+1I,A 

NEXT I 


TANK 43 





820 
830 
8235 
846 
850 
860 
870 
880 
890 
700 
910 
920 
9230 
940 
950 
760 
970 
80 
990 
1000 
1010 
1020 
1630 
1040 
1050 
2000 


TH=CHR# (91) 
NE=CHRE (32) 
M$=CHRY (42) 
R£= nu 
FOR I=i TO 13 
RE=REENS 
NEXT I 
RE=RE+ME+ME 
FOR I=1 TO 7 
RÉ=RAENE 

NEXT I 
RE=RE+ME+ME 
D+= un : " 
G$="," 

TX=20 

TY=10 

X=TX 

Y=TY 

S=0 

DL=200 

OB=10 

FOR I=0 TO 26 
PRINT R$ 

NEXT I 

RETURN 

DATA 17,31,31,31,51,21,4,4 





Voici un jeu d'adresse assez difficile. Vous tenterez de marquer le 
plus grand nombre de points possible en effaçant les lettres affichées 


par l'ordinateur. Utilisez les touches <W> (haut), <Z> (bas), 


< A 


Attention : vous devez effacer les lettres dans l’ordre alphabétique 
en évitant les obstacles placés au hasard sur l'écran, et ceci en un temps 
limité. (Le temps qui vous reste est affiché au bas de l'écran.) Lorsque 
toutes les lettres sont effacées, le jeu reprend avec une lettre 


supp 


ALPHABET 


> (gauche) et <S > (droite). 


lémentaire. 


REM HHNR#HRERENRERX 
REM * ALPHABET *# 
REM HRHÉ#RERENENEX 
GOSUB 920 
S=0 

X=0 
GOSUB 4640 

FOR I=1 TO X 

Dt=KEY# 
PX=PX+(D$="A")-(D$="S") 
PY=PY+(D#="W")-(D#="Z") 
Z=Z-0.1 

PRINT 2,253; "TEMPS :"3INT(Z) 
IF Z<1 THEN 460 
C=SCRN(PX,PY) 

IF C=1+192 THEN S=S+1:PING:G0T0 390 
IF C<>352 THEN PX=XP:PY=YP 
PLOT XP,YP,NS 

PLOT PX,PY,P# 
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350 
560 
370 
390 
400 
410 
420 
450 
440 
450 
480 
470 
480 
490 
500 
510 
520 
5330 
540 
930 
560 
9370 
580 
570 
600 
610 
620 
630 
835 
640 
650 
660 
670 
680 
690 
700 
710 
720 


XP=PX 

YP=PY 

GOTO 110 

PLOT XP,YP,N# 

PLOT PX,PY,P# 

XP=PX 

YP=PY 

NEXT I 

GOSUB 640 

GOTO 100 

IF RS THEN R=5 

PLOT 10,10,"TEMPS ECOULE" 
PLOT 10,13,"SCORE :"+STR$# (5) 
PLOT 10,16,"RECORD :"+STR# (R) 
PLOT 10,19,"UNE AUTRE 7" 
REPEAT 

D#=KEY# 

UNTIL D$="" 

REPEAT 

D+=KEY# 

UNTIL D#<>"" 

IF D$<>"N" THEN 50 

CLS 

POKE #24E,30 

POKE #24F,5 ° 

PAPER 7 

INK O 

PRINT CHR#(17) 

END 

CLS 

X=X+1 

FOR PX=2 TO 37 

PLOT PX,1,B# 

PLOT PX,24,B$ 

NEXT PX 

FOR PY=1 TO 23 

PLOT 2,PY,B# 

PLOT 37,PY,B$# 


750 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
890 
900 
905 
910 
920 
950 
940 
750 
960 
970 
980 
790 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
2000 
2010 


ALPHABET 


NEXT PY 
FOR Z=1 TO 120 
GOSUB 890 
PLOT PX,PY,0$ 
NEXT Z 
FOR Z=1 TO X 
GOSUB 890 
PLOT PX,PY,CHR#(Z+192) 
NEXT Z 
GOSUB 890 
PLOT PX,PY,P# 
XP=PX 
YP=PY 
Z=30 
RETURN 
PX=INT (RND (1) #34) +3 
PY=INT (RND (1) #22) +2 
IF SCRN(PX,PY)<>32 THEN 890 
RETURN 
CLS 
PAPER 5 
INK 3 
PRINT CHR#(17) 
POKE #26A,FEEK(#26A) OR 8 
FOR 1=0 TO 15 
READ A 
POKE 46808+1,A 
NEXT I 
N$=CHRS (32) 
B#$=CHRS# (160) 
P#=CHRS (91) 
O$=CHR$ (220) 
POKE #24E,1 
POKE #24F, i 
RETURN 
DATA 28,28,8,62,8,8,20,20 
DATA 63,63,63,63,603,63,603,62 
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HASSE AU 
CANARD 


Votre micro-ordinateur vous invite à une partie de chasse au canard. 
Les canards volent de droite à gauche en haut de l'écran. Vous vous 
déplacez en utilisant les touches < À > et < S >. La touche < W > 
vous permet de vous arrêter. Vous pouvez tirer autant de cartouches 
que vous voulez, mais il ne passera que 20 canards, et votre but est 
d'en abattre le plus possible. Pour tirer, frappez la barre d'espacement. 
Si vous atteignez un canard, vous marquerez un point et vous le ver- 
rez tomber en battant des ailes. 


10 REM KKERRRRERERERERERERE 


20 REM # CHASSE AU CANARD *# 
30 REM HIER EEE DEEE EEE IEUNENE 


50 GOSUR 410 


80 Z=-Z 
70 H=2Z+0.5 
80 CX=CXx-1 


90 IF CX<2 THEN GOSUER 750 
100 IF NC=0 THEN 900 

150 PFLOT CX,CY,CC$ CH) 

140 JX=JX+DI 

150 IF JX>58 THEN JX=358 


50 


i&o 
186 
200 
220 
2:30 
240 
250 
280 
2970 
3510 
320 
330 
340 
360 
570 
3580 
590 
395 
400 
4i0 
420 
450 
440 
450 
480 
470 
480 
470 
300 
310 
320 
330 


540 
9930 


560 
S70 


JEUX EN BASIC SUR ATMOS 


IF JX<2 THEN JX=2? 
FLOT X,Y,N# 

PLOT JX,JY,J$ 

X=JX 

IF TY<>JY THEN TY=TY-2:GOTO 250 
TX=JX 

IF TY<2 THEN 800 

FLOT TX,TY,J# 

IF TY<>JY THEN PLOT TX,TY+2,N# 
X$=KEYS 
D=2#((XH="A")—(X#="S")) 

IF D<>O THEN Di=D 

IF X#$="W" THEN Di=0 

IF X#CÈ>N# THEN 60 

IF TY£>JY THEN 60 

TY=JY-2 

TX=JX 

SHOOT 

GOTO 60 

CLS 

PAPER 4 

INK 2 

FOR I1=0 TO 31 

READ A 

POKE 46840+1I,A 

NEXT I 

PRINT CHR#(17); 

DIM CC#(1) 

J$=CHR$# (94) 

N$=CHR$# (32) 

E$="x" 

CC (0) =CHRS (95) +CHRS# (96) +CHR$ (97) +N 


CC (1) =CHRS (95) +CHRS (98) +CHR$ (97) +N 
JX=19 


JY=26 
NC=20 


CHASSE AU CANARD 51 





190 
5970 
600 
610 
620 
6350 
640 
650 
750 
780 
770 


9:30 


1000 
1010 
1020 
1030 
10355 
1040 
1045 
1060 
1086 


TX=JX 

TY=JY 

Z=0.5 
CX=36 
CY=0 

X=JX 

Y=JY 
RETURN 
PLOT 2,0,N$+N$+NS# 
CX=36 
NC=NC-1 
RETURN 

IF TX=CX OR TX=CX+1 THEN 1040 
PLOT TX,TY+2,N$ 
PLOT TX,TY,J# 
PLOT TX,TY,N# 
TX=JX 
TY=JY 

IF NC£>0 THEN 280 
CLS 
PLOT 15,10,"SCORE :"+STR$ (5) 
PLOT 14,15,"UNE AUTRE 7" 
REPEAT 
D+=KEY# 
UNTIL D#="" 
REPEAT 
D+=KEY# 
UNTIL D#$<>"" 

IF D$<>"N" THEN PRINT CHR#(17) : RUN 
CLS 

PAPER 7 

INK © 

PRINT CHR#(17) 

END 

INK 1 

PLOT TX,TY,E# 

PLOT TX,TY+2,N# 

SHOOT 





10970 
1095 
1110 
1120 
1130 
1150 
1160 
1170 
1190 
1200 
1210 
1220 
1250 
1260 
1270 
1290 
1300 
1510 
1320 
2000 
2010 
2020 


2030 
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WAIT 30 

INK 2 

S=5+1 

DX=CX 

CX=36 

FOR I=1i TO 26 

Z=-Z 

H=Z+0.5 

PLOT DX,1-1,N#$+N#+N# 
PLOT DX,I1,CC# (CH) 

PLAY 1,1,1,i 

ZAP 

NEXT I 

NC=NC—1 

WAIT 300 

CLS 

IF NC=0 THEN 900 

TY=JY 

GOTO 60 

DATA 0,0,0,25,63,0,0,0 
DATA 31,60,56,63,63,0,0,0 
DATA 0,0,0,56,32,0,0,0 
DATA 0,0,0,63,63,56,60,31 











Dans ce jeu, vous êtes un serpent qui se déplace en ondulant sur 
l'écran. Le changement de direction s'effectue en tapant n'importe 
quelle touche. Pour pouvoir vous déplacer, vous devez vous nourrir. 
Heureusement, vous êtes entouré par un grand nombre de champi- 
gnons. Mais attention ! Si les bleus sont excellents, vous devez abso- 
lument éviter les rouges qui, eux, sont vénéneux. Chaque champignon 
bleu vous apporte suffisamment de calories pour avancer de dix lignes. 
Essayez de ne pas mourir de faim sans pour autant finir empoisonné | 


10 REM #K#KHHEEHEHEEX 

20 REM * SERPENT *# 

30 REM H#RHKHERHEHIEE 

40 PRINT CHR#(17);: 

50 GOSUB 540 

60 D$=KEY$ 

70 IF D$<>"" THEN D=-D 

80 X=X+D 

90 IF X<2 THEN X=35 

100 IF X>38 THEN X=357 

110 IF SCRN(X+1,Y)=93 THEN 260 
120 IF SCRN(X+1,Y)=92 THEN S=5+10:H=H+1 
O=:PING 

130 PLOT X,Y,S# 

140 C2=-C2 

150 Ci=C2+0.5 

160 PRINT 58,26; SC$# 

170 C=INT (RND(1) #16) #2+2 





56 


180 
190 
200 
220 
230 
240 
2530 
260 
270 
290 
300 
320 
330 
370 
380 
390 
400 


450 
460 
470 
480 
490 
495 
300 
305 
310 
915 
9320 
930 
540 
9930 
960 
570 
975 
580 
9970 
600 


JEUX EN BASIC SUR ATMOS 


PLOT C+C1,26,B$ 
C=INT (RND(1) #18) #2+2 

IF RND(1)<0.5 THEN PLOT C+C1,26,R$ 
S=5-1 

IF S=0 THEN 260 

H=H+1 

GOTO 60 

ZAP 

PRINTE 38,26: SC# 

PLOT X,Y-1,CHR$ (O0) 

PLOT X+1,Y-1,CHR$ (91) 

EXPLODE 

IF HÈ>R THEN R=H 

REPEAT 

D$=KEYS# 

UNTIL D$="" 

PRINTE 7,20; "SCORE :":H,"RECORD :"; 


PRINT@ 15,23; "UNE AUTRE 7" 
REPEAT 

D$=KEY# 

UNTIL D$<>"" 

IF D#$<>"N" THEN 520 
CLS 

PAPER 7 

INK O 

PRINT CHR#(17)3 

END 

GOSUB 610 

GOTO 60 

CLS 

PAPER 2 

FOR I=0 TO 23 

READ 4 

POKE 46808+I,4A 

NEXT I 
S$=CHR$ (5) +CHR$ (91) 
B$=CHR$ (4) +CHR$ (92) 


SERPENT 57 





610 R$=CHRS (1) +CHR$ (93) 

620 CLS 

630 H=0 

640 D=1 

650 S=100 

660 X=18 

670 Y=10 

680 C2=0.5 

690 SC$=CHR# (32) 

700 RETURN 

1000 DATA 51,63,45,63,63,30,12,0 
1010 DATA 30,63,63,12,12,12,30,0 
1020 DATA 30,63,63,12,12,12,30,0 








ATTERRISSAGE 


Après un long voyage en apesanteur, poser une navette spatiale 
en douceur n’est pas chose aisée ; mais grâce à votre ordinateur, vous 
allez être en mesure de vous entraîner sans danger. Vous devez poser 
votre navette sur l’une des quatre aires prévues à cet effet. Vous pour- 
vez vous diriger vers la droite et vers la gauche à l'aide des touches 
de contrôle du curseur. Après un atterrissage réussi, le jeu reprend avec 
une vitesse supérieure. 


10 REM ##KHRHHRREREREREE 
20 REM * ATTERRISSAGE * 
30 REM ##KHHEHHEREENRER 
80 GOSUB 620 

90 GOSUR 850 

100 FOR NY=1i TO 24 

110 D$-KEY# 

120 NH=NX 

130 NX=NX+(D#$-=-6#+) -(D$=X#) 
140 IF NX<2 THEN NX=2 
150 IF NX>36 THEN NX=56 
160 PLOT NH,NY-1,B2# 

165 PLOT NH,NY,B2# 

170 PLOT NX,NY,NI$ 

180 PLOT NX,NY+1,N2# 

183 PLAY 1,0,0,15 

185 MUSIC 1,2,INTC(NY+1)/2),15 
190 WAIT DL 





60 


195 
200 
205 


TO 90 


210 
215 
217 
220 
30 
240 
2950 
SEE" 
259 
260 
270 
280 
290 
500 
310 
320 
330 
340 
350 
360 
570 
3580 
390 
400 
620 
650 
640 
850 
660 
670 
680 
6970 
700 
710 


JEUX EN BASIC SUR ATMOS 


PLAY 1,0,0,0 
NEXT NY 
IF INT({NX-4)/10)=(NX-4)/10 THEN 60 


PLOT NX,NY,B2# 
PLOT NX,NY-1,B2# 

IF NX<5 THEN NX=5 

PLOT NX-3,NY,NC# 

EXPLODE 

WAIT 50 

PLOT 8,10,"VOTRE NAVETTE S'EST ECRA 


PLOT 15,12,"SCORE :"4+STR$#(S-1) 
PLOT 14,15,"UNE AUTRE ?" 
REPEAT 

D#=KEY# 

UNTIL D$="" 

REPEAT 

D$=KEY+# 

UNTIL D$<>"" 

IF D$<>"N" THEN PRINT CHR$ (17) : RUN 
PRINT CHR#(17) 

PAPER 7 

INK O 

POKE #24E,30 

POKE #24F,5 

CLS 

END 

CLS 

PRINT CHR#(17) 

PAPER 4 

INK 3 

FOR I=0 TO 39 

READ A 

POKE 46808+1I,A 

NEXT I 

R#$=CHR# (32) 

B2+-B#+B# 
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720 
750 
740 
730 
780 
779 
) +B$+ 
7970 
800 
810 
820 
830 
840 
950 
855 
840 
870 
880 
890 
900 
910 
950 
760 
1000 
1010 
1020 
1030 
1040 


N1$=CHRS (91) +CHR$ (92) 
N2#=CHR# (93) +CHR$ (94) 
A$=CHRS (95) +CHR$ (95) 
G$=CHRS (8) 
XH=CHRS (9) 
NC$=CHRS (94) +R$+CHRS (92) +B$+CHR# (91 
CHRS (93) 
POKE #24E,1 
POKE #24F,1 
POKE #26A,PEEK(#264) OR 8 
G=0 
DL=20 
RETURN 
WAIT 100 
CLS 
FOR I=0 TO 3 
PLOT 4+1#10,26,A# 
NEXT I 
DL=DL-2 
IF DL<i THEN DL=i 
G=5+1 
NX=INT (RND (1) #35) +2 
RETURN 
DATA 0,7,15,31,59,59,63,59 
DATA 0,56,60,62,55,55,63,55 
DATA 59,31,15,18,32,32,16,56 
DATA 55,62,60,18,1,1,2,7 
DATA 63,63,63,0,0,0,0,0 











RAND-PRIX 


Au volant de votre formule 1, essayez de parcourir la plus grande 
distance possible. Votre voiture dispose de deux vitesses que vous pou- 
vez sélectionner à l’aide des touches <1> et <2%>. La direction 
est commandée par les touches < , > et <. >. En seconde vitesse, 
votre voiture roule deux fois plus vite. Mais gare à l'accident ! 


10 REM RHRHREREREEERER 

20 REM * GRAND-PRIX # 

350 REM RHRHRÉERENIEIRE 

50 GOSUB 600 

70 X$=KEY# 

80 IF X$="1" THEN T=1 

90 IF X+$="2" THEN T=2 

100 VX=VX+(X#=G#)—(X$=D#) 

150 IF SCRN(VX,VY+1)<>91 THEN 340 
160 RX=RX+ (RND (1)<0.5)-—(RND(1)<0.5) 
170 IF RX£RN THEN RX=RN 

180 IF RX>RM THEN RX=RM 

210 PRINT@ XV,VY:N#: 

2350 PRINTE RX,26:;R# 

250 PRINTE VX,VY:V#: 

270 K=K+T 

280 DL=(2-T) #25 

290 FOR I=i TO DL 

300 NEXT I 
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310 
320 
3540 
370 
380 
390 
420 
430 
440 
450 
460 
470 
480 
490 
200 
510 
920 
530 
600 
610 
620 
630 
710 
720 
730 
740 
7530 
760 
770 
780 
790 
800 
810 
820 
830 
850 
860 
870 


JEUX EN BASIC SUR ATMOS 


XV=UX 
GOTO 70 

PRINTE XV,VY:NS: 

PRINT@ VX,VY+1:A$: 

EXPLODE 

WAIT 100 

PRINT@ 10,10;"Kms PARCOURUS :"3K;3 
IF KEY$<>"" THEN 430 
PRINTG 14,16;"UNE AUTRE 7"; 
REPEAT 

X#=KEYS 

UNTIL X$<>"" 

IF X#$<>"N" THEN PRINT CHR# (17) : RUN 
PAPER 7 

INK © 

CLS 

PRINT CHR#(17): 

END 

PAPER 2 

PRINT CHR#(17): 

CLS 

N$=CHRS (91) 

FOR I=0 TO 15 

READ À 

POKE 46800+1,A 

NEXT I 

RÉ=NS+NE+NS 

RX=18 

RY=27 

T=1 

VX=19 

VY=10 

XV=VX 

VE= LL Z ss 

A+= “ + ” 

FOR I=0 TO 26 

PRINTE RX,I:R$ 

NEXT 1 
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890 
900 
910 
920 
930 
940 
950 


PRINTE VX,VY: VS: 
RM=35 
RN=2 
=0 
D+$= "” é ” 
G$= “ : " 
RETURN 


1000 DATA 18,0,18,51,51,18,0,18 
1010 DATA 63,63,63,63,63,63,63,6S 


(ES ef 


ÿ AS 


d | 





CRABES 


Vous devez maintenant aider une pauvre tortue de mer à regagner 
l'eau en évitant les crabes voraces qui patrouillent sur la plage. Cha- 
que tortue amenée au but rapporte un point. Vous disposez de cinq 
vies pour tenter de marquer un score maximum. Utilisez les touches 
<W> pour avancer et <Z> pour reculer. 


10 REM Kk#LHEEHIIEX 

20 REM * CRABES * 

SO REM HRRHHERHEÉHIEE 

35 FOKE #264,FEEK(#264) OR 8 

40 PRINT CHR#(17) 

50 GOSUB 840 

60 PLOT 2,20,"VIE(S) REST. :"+STRS# (NP) 
90 AF=RIGHT# (AS, 1)+LEFT#(A$,37) 
100 BF=RIGHT$(R#,37)+LEFTS(B$,1) 
120 PLOT 2,X1,A# 

140 PLOT 2,X2,B# 

160 PLOT 2,X53,A# 

180 PLOT 2,X4,B# 

190 D$=KEY# 

200 PY=PY+(D#="W")—(D#="7") 

210 IF PY>ié6 THEN PY=16 

220 IF PY=8 THEN 360 

230 C=SCRN(PX,PY) 

240 IF C<>32 AND C<>91 THEN 550 
260 PLOT PX,YP,N# 


JEUX EN BASIC SUR ATMOS 


——— 


280 
300 
320 
330 
3540 
360 
380 
420 
460 
470 
480 
900 
5320 
330 
9340 
9930 
570 
580 
600 
610 
620 
630 
640 
650 
680 
685 
670 
680 
6970 
720 
740 
760 
770 
780 
790 
795 
806 
805 


PLOT PX,PY,P# 

YP=PY 

T=T+1 

IF T>500 THEN 660 

GOTO 60 

PLOT PX,YP,N$ 

PLOT PX,PY,P# 

GOSUB 1600 

PY=16 

YP=PY 

G=5+1 

FLOT 2,0,"SC0RE : "+STRS$ (S) 
PLOT 20,0,"RECORD :"+STRS$ (R) 
GOSUB 1110 

GOTO 60 

NP=NP—1 

PLOT PX,YP,N# 

PLOT PX,PY,"#" 

GOSUB 1500 

IF NP=0 THEN 660 

PY=16 

YP=PY 

GOSUB 1110 

GOTO 60 

CLS 

INK O 

IF S>R THEN R=S 

IF T<500 THEN 720 

PLOT 8,6,"** TEMPS ECOULE **#" 
PLOT 13,10,"SCORE :"+STR$(S) 
FLOT 12,14,"RECORD : "+STRS$ (R) 
PLOT 11,20,"UNE AUTRE ?" 
REPEAT 

DH=KEY# 

UNTIL D$="" 

REPEAT 

D$=KEY# 

UNTIL D#$<>"" 


810 
815 
820 
825 
830 
835 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
9760 
770 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1140 
1150 
1160 
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IF D#<>"N" THEN 50 
CLS 
PAPER 7 
INK O 
PRINT CHR#(17) 
END 
CLS 
PAPER 3 
INK 2 
RESTORE 
FOR 1=0 TO 23 
READ À 
POKE 46808+1,A 
NEXT I 
P$=CHR$ (91) 
N$=CHRS (32) 
At="" 
B+= us 
5=0 
NP=5 
PX=19 
PY=16 
YP=PY 
X1=10 
X2=11 
X3=13 
X4=14 
T=0 
FOR I=1 TO 38 
READ A 
A$=A$+CHRS (A) 
NEXT I 
B+$=A$ 
X=INT (RND (1) #36) +1 
AS=RIGHTS (AS, X) +LEFTS (AS, 38-X) 
PLOT 1,20,CHR$ (5) 
PLOT 1,X1,CHR$ (0) 
PLOT 1,X2,CHR# (0) 
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JEUX EN BASIC SUR ATMOS 


à 


1170 
1180 
1190 
1200 
1210 
1220 
1250 
1240 
1500 
1510 
1520 
1530 
1600 
1810 
1620 
1650 
1835 
1640 
1850 
1660 
1670 
1680 
2000 
2010 
2020 
2030 


PLOT 1,X3,CHR$ (0) 

PLOT 1,X4,CHR$ (0) 

PLOT 0,0,CHR$ (18) 

PLOT 1,0,CHR$ (5) 

FOR X=0 TO X1-2 

FLOT O,X,CHR# (20) 

NEXT X 

RETURN 

ZAP 

RETURN 

WAIT 300 

RETURN 

PING 

FOR PY=PY TO O STEF-1 

PLOT PX,YP,N$ 

PLOT PX,PY,F# 

WAIT 30 

YP=PY 

NEXT PY 

PLOT PX,YP,N# 

WAIT 100 

RETURN 

DATA 12,45,63,30,30,63,45,0 
DATA 7,15,31,31,18,16,12,0 
DATA 56,60,62,62,18,2,12,0 
DATA 32,92,93,32,32,92,93,32,32,32 


02 ,94,32,27,32,532,32,92,95, 32 


2040 


DATA 32,92,93,32,32,52,92,93,32,32 


,92,93,32,32,92,93,32, 32,32 


4} 
CA 
A 


2 


LA PR 
LU Y re 
is 
HA 
ÿ 
7 
‘ CA 
ll 
/ 
LL 
LA 
LS 
LA 
va LL 
(0 
f 


#Y 
{ 











Dans cette version du jeu bien connu, vous utiliserez les touches 
<1>, <2>, <3> et <4> pour répéter la séquence produite 
de façon aléatoire par l'ordinateur. À chaque touche correspondent 
une couleur et un son : 


(du plus grave au plus aigu) 


<1> : rouge 
<23> : vert 
<3%> : jaune 
<4> : bleu 


La limite de la longueur de la séquence à répéter est 100. Lorsque 
vous faites une erreur, le jeu s'arrête et votre score, correspondant à 
la longueur de la plus longue séquence que vous avez réussi à repro- 
duire, est affiché ainsi que le record du jour. 


10 REM ##HHHIHIRIER 
20 REM + SIMON +*# 

50 REM #RRHREEEX 

40 DIM T(i00) 

50 DIM C#(4) 

55 PRINT CHR#(17) 

60 X=0 

70 GOSUB 2000 

80 X=X+1 

90 TiX)=INT{IRND( I) #4) +1 
100 FOR I=i TO X 

110 GOSUER 1000 
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120 
1350 
140 
1350 
160 
170 
180 
200 
210 
220 
230 
240 
230 
500 
905 
510 
320 
930 
3460 
3930 
560 
570 
580 
9370 
600 
6iü 
6820 
630 
640 
650 
660 
670 


1900 


JEUX EN BASIC SUR ATMOS 


NEXT I 
FOR I=1 TO X 
FOR J=1 TO 1000 
D$=KEYS# 
IF D$<>"" THEN 200 
NEXT J 
GOTO 500 
IF ASC(D#)-48€>T(I) THEN 500 
GOSUB 1000 
NEXT I 
FOR I=i TO 500 
NEXT I 
GOTO 80 
EXFLODE 
WAIT 30 
X=X-1 
IF X>R THEN R=X 
PLOT 15,15,"SCORE :"+STR#(X) 
PLOT 14,17,"RECORD :"+STR#(R) 
PLOT 13,19,"UNE AUTRE 7?" 
REPEAT 
D$=KEY+# 
UNTIL D+$="" 
REPEAT 
D$=KEYS# 
UNTIL D#<>"" 
IF D$£>"N" THEN 60 
CLS 
PAPER 7 
INK O 
PRINT CHR#(17) 
END 
PLOT 9+T(I1)#4,13,C#(T(1)) 


1005 PLAY 1,0,0,0 


1010 


MUSIC 1,2,T(1)#3,15 


1020 WAIT 30 


1930 


PLOT 9+T(I1)#4,13,N# 


1040 PLAY 0,0,0,0 


1050 
2000 
2010 
2020 
2030 
29040 
2050 
2060 
2070 
2080 
20970 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2235 
2237 
2240 
2250 
2240 
2270 
2280 
2290 
2300 
2310 
2320 
2530 
3000 
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RETURN 
CLS 

PAPER 5 

INK 6 

POKE #269,PEEK(#26A) OR 8 
FOR I=0 TO 7 

POKE 46808+1,63 

NEXT I 

B$=CHRS (91) 
NE=CHRS (32) +CHR$ (32) 

CH (1) =CHR$ (17) +CHRS (21) 
C$ (2) =CHR$# (18) +CHR$ (21) 
CE (3) =CHR# (19) +CHRS (21) 
C$ (4) =CHR# (20) +CHR$ (21) 
FOR 1=2 TO 37 

PLOT I,1,B# 

PLOT 1,25,B# 

NEXT I 

FOR I1=2 TO 24 

PLOT 2,1,B# 

PLOT 37,1,B# 

NEXT I 

FOR I=i TO 4 

PLOT 9+1#4,11,CHR#(I+176) 
NEXT I 

RESTORE 

S+= “us 

FOR I=1 TO 7 

READ À 

S$=S$+CHRS (A) 

NEXT 1 

FOR I=i6 TO 22 

PLOT 1,4,CHR# (160) 

PLOT 1,6,CHR# (160) 

NEXT I 

PLOT 16,5,5# 

RETURN 

DATA 160,211,201,205,207,206, 160 











Voici un jeu que l'on a l'habitude de voir dans les cafés. Grâce à 
votre ordinateur, vous allez maintenant pouvoir en profiter sans dépen- 
ser un centime. Le but du jeu est simple : essayer de détruire un mur 
de briques à l'aide d’une balle que vous devez renvoyer avec votre 
raquette. Chaque brique cassée rapporte un point. Lorsque le mur est 
entièrement détruit, un nouveau mur apparaît. Vous disposez de dix 
balles pour tenter de marquer un score maximum. Utilisez les touches 
de contrôle du curseur pour déplacer la raquette. 


10 KREM KK#ÉHHRENIÉREREREEEX 

20 REM * CASSE-BRIQUES * 

SO REM KKRHKKIHIRHERRENREEE 

40 PRINT CHR#(17) 

50 GOSUR 730 

200 PLOT BX,BY,N# 

230 BX=BX+DX 

240 BY=BY+DY 

250 IF SCRN(BX,BY)<>32 THEN DY=-DY:S=5+ 
1: PING 

260 PLOT EX,BY,B# 

280 IF BY=24 AND ABS(EX-RX-3)>1 THEN 4i 
O 

290 IF BY=24 AND BX>5 AND EX{34 THEN FL 
OT BX,BY,N$:BX=BX+SGN (D) 

300 IF BY=274 OR BY=1 THEN PING:DY=-DY 
310 IF BX=2 OR BX=37 THEN PING:DX=-DX 
315 D$-KEY+# 

320 D=2#((D$-6G#)-(D#=X#) ) 

330 RX=RX+D 
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340 
330 
380 
590 
400 
410 
420 
440 
450 
460 
470 
510 
920 
9530 
540 
560 
580 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
715 
720 
725 
726 
727 
728 
730 
755 
740 
745 


JEUX EN BASIC SUR ATMOS 


IF RX<O THEN RX=0 
IF RX>35 THEN RX=33 

PLOT RX,RY,R# 

IF S=-238 THEN GOSUB 1000 
GOTO 200 

NE=NE+1 

IF NB=11 THEN 530 

PLOT BX,BY,N# 

ZAP 

WAIT 100 

PLOT RX+2,RY,N#+NS+4NS 
GOSUR 920 

GOTO 200 

S=5+438%K 

IF S>Ri THEN Ri=S 

PRINTE 13,6; "SCORE :":S 
PRINT& 13,10;"RECORD :";Ri 
PRINTE 13,15; "UNE AUTRE ?" 
NB=0 

K=0 

G=0 

REPEAT 

D$=KEYS 

UNTIL D$="" 

REPEAT 

D$=KEY# 

UNTIL D$<>"" 

IF D#<>"N" THEN 50 

PRINT CHR$ (17) 

CLS 

INK O 

POKE #24E,30 

POKE #24F,4 


END 
CLS 

POKE #24E,1 
PAPER 7 


POKE #24F,1 
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750 
755 
760 
770 
780 
790 
800 
810 
815 
820 
830 


INK O 

RESTORE 

FOR I=0 TO 51 

READ À 

POKE 46808+1I,A 

NEXT I 
B3$=CHR$ (91) +CHR$# (92) 
G$=CHRS# (8) 

X#$=CHR# (9) 

N$=CHR$ (32) 

R#=CHRS (235) +CHR$ (0) +CHR$ (93) +CHR# (9 


S)+CHRE (93) +N$+N$ 


840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
1000 
1010 
1240 
1250 
1260 
1270 
2000 
2010 
2020 
2030 


B#$=CHR# (94) 

FOR I=0 TO 6 

PLOT 1,1+2,CHR#(I) 

FOR J=1 TO 17 

PLOT J#2+1,1+2,B3$ 

NEXT J 
BS$-RIGHT$(BS$,1)+LEFT#$(B3$,1) 
NEXT I 

RX=16 

RY=25 

BY=24 

BX=INT (RND(1)#32+5) 

DY=-1 
DX= (INT (RND(1)#2)-0.5) #2 
RETURN 

K=K+1 

S=0 

PLOT BX,BY,N$ 

PLOT RX+2,RY,N$+NS$+N# 

GOSUB 850 

RETURN 

DATA 59,59,59,59,59,59,59,0 
DATA 63,63,63,63,63,63,63,0 
DATA 63,63,63,0,0,0,0,0 
DATA 0,30,63,63,63,63,30,0 








ARACHUTE 


Essayez, en sautant d’un hélicoptère en vol, d'atteindre la cible qui 
se trouve au sol. Une première pression sur une touche vous permet 
de descendre verticalement en chute libre. Une deuxième pression 
entraîne l'ouverture du parachute. La descente continue alors plus len- 
tement et avec un angle de 45 degrés car le vent vous pousse. Plus 
vous attendrez pour ouvrir votre parachute et moins vous serez déporté. 
Mais n’attendez pas trop longtemps car, au-dessous de cent mètres, 
le parachute ne s'ouvre plus. 


10 REM ##RHHEHEREMNEX 

20 REM * PARACHUTE +*# 

30 REM HRHHRHEREEIEREX 

55 PRINT CHR#(17) 

40 GOSUB 470 

50 HH=HH-0.5 

99 H=INT (HH) 

60 IF H=2 THEN PLOT 2,0,N2#+N2# 
70 IF H=2 THEN HH=36:H=536 

80 PLOT H,HV,H# 

90 D$-KEY# 

100 IF D$="" THEN 140 

110 IF PV>i6 THEN 140 

120 IF SP=i THEN OP=i ELSE SP=i 
150 IF OPF=0 THEN PV=1:PH=H 

140 IF SP=0 THEN 250 





150 
160 
170 
180 
190 
195 
197 
200 
205 
2i0 
215 
230 
2530 
260 
270 
290 
500 
S0S 
319 
315 

20 
3350 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
486 
4970 


JEUX EN BASIC SUR ATMOS 


IF OP=0 THEN PV=PV+2 

IF OP=i THEN PV=PV+0.5:PH=PH-0.5 
IF PV:24 OR PH<2 THEN 260 
IF OPF=i THEN 205 

PLOT PH,PV-2,N2# 

PLOT PH,PV,HI1# 

WAIT 10 

GOTO 50 

PLOT PH+1,PV-1,N2$ 

PLOT PH+0.5,PV,P1# 

PLOT PH+0.5,PV+1,P2$ 

WAIT 10 

GOTO 50 

IF ABS((PH+0.5)-A) 1 THEN 320 
WAIT 300 

S=S+10 

CLS 

PLOT 1i,0,4 

GOSUE 620 

GOTO 50 

CLS 

FLOT 1i4,10,'"SCORE :"+STRS#(S) 
PLOT 15,ié6,"UNE AUTRE 7" 
REFEAT 

D$=-KEY$ 

UNTIL D$="" 

REPEAT 

D$=KEY# 

UNTIL D$#<>"" 

IF D#<È>"N" THEN PRINT CHR#(17): RUN 
PRINT CHR#(17) 

CLS 

PAPER 7 

INK © 

END 

CLS 

PAPER 6 

INK 1 
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5300 
510 
520 
330 
540 
J90 
560 
370 
90 
370 
600 
&i0 
620 
630 
640 
650 
680 
670 
680 
6970 
710 
1000 
1010 
1020 
1030 
1040 
1050 
10640 
1070 
1080 
1090 


PLOT 1,0,4 

FOR 1=0 TO 79 

READ A 

POKE 46808+I,A 

NEXT I 

N$=CHRS (32) 

N2H=NE+NE 

HÉ=CHRSE (91) +CHR$ (92) +CHRS (93) +N$ 
H1#=CHRS (94) +CHR$ (95) 
P1#H=CHRS# (96) +CHRS$ (97) +N$ 
P2#$=CHR# (98) +CHR$# (99) 
A$=CHRE (100) +CHR$ (100) 
HH=36 
HV=0 
A=INT (RND (1) #20) +3 

PLOT A,26,A# 

SP=0 

OP=0 
FH=0 
PV=0 
RETURN 

DATA 63,1,15,31,31,63,63,31 
DATA 62,0,32,56,63,63,60,48 
DATA 0,0,3,3,63,62,0,0 

DATA 2,2,3,3,15,9,11,3 

DATA 32,32,32,32,56,8,40,32 
DATA 7,31,31,63,63,32,32,16 
DATA 48,60,60,62,62,2,2,4 
DATA 19,11,9,15,3,3,2,2 
DATA 36,40,8,56,32,32,32,32 
DATA 63,63,63,0,0,0,0,0 








ROBOTS 


Vous voici seul, abandonné sur une planète défendue par des robots 
meurtriers. Le sol est truffé de mines qu'il vous faut absolument évi- 
ter. Les mines sont représentées sur l'écran par des losanges rouges. 
Au début du jeu, cinq robots sont présents sur le terrain. Sans perdre 
une seconde, ils se précipitent sur vous en suivant toujours le plus court 
chemin. Par chance, les robots sont aveugles et ne voient pas les mines 
qui se trouvent entre eux et vous, ce qui vous permet, en vous dépla- 
çant judicieusement, de les éliminer. Utilisez pour cela les touches : 


<O> <W> <E> 
<A> <D > 
<2Z> <X> <C> 


suivant la direction que vous avez choisie. La touche < S > peut être 
utilisée en dernier recours. Elle vous permet de vous transporter vers 
une position déterminée au hasard (avec le risque de tomber sur une 
mine ou sur un robot). Elle ne peut être utilisée que cinq fois. Lorsque 
tous les robots sont éliminés, le jeu reprend avec un robot supplémen- 
taire. Si vous sautez sur une mine ou si un robot vous tue, tout n'est 
pas perdu. Vous disposez en effet de cinq vies. Si vous désirez chan- 
ger le nombre de mines, modifiez la valeur de la variable NM à la ligne 
80. 


10 REM R#RREÉRHEMIE 
20 REM + ROROTS * 
20 REM #RHEHNRHEKEE 
40 PRINT CHR#(17) 
60 NH=S5 
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70 Ni=5 
BO NM=40 

90 NR=NI 

100 DIM R(30,1) 

110 GOSUR 1580 

130 GOSUB 910 

140 GOSUB 710 

145 C=SCRN (HX,HY) 

150 IF C<>32 AND C<>92 THEN 470 
160 PLOT X,Y,N# 

210 PLOT HX,HY,H# 

220 X=HX 

230 Y=HY 

240 T=0 

250 FOR I=1 TO NR 

260 IF R(I,0)=0 THEN 400 

270 T=1 

280 RX=R(I,0)+SGN(HX-R(I,0)) 
290 RY=R(I,1)+SGN(HY-R(I,1)) 
300 C=SCRN(RX,RY) 

310 IF C=-170 OR C=91 THEN S=S+1:PLOT R{ 
1,0),R(1,1),N#:R(I,0)=0:GOTO 400 
320 IF C=92 THEN 470 

330 PLOT R(I,0),R(I,1) ,N# 

370 PLOT RX,RY,RS# 

380 R(I,0)=RX 

390 R(I,1)=RY 

400 NEXT I 

410 IF T=0 THEN 430 

420 GOTO 140 

430 S=5+10 

435 REPEAT 

440 D#$=KEY# 

445 UNTIL D$="" 

450 IF NR<30 THEN NR=NR+1 

460 GOTO 130 

470 NH=NH-1 

480 PLOT X,Y,N# 
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490 


9570 


REPEAT 
D$=KEY# 


UNTIL D+$="" 
PLOT HX,HY,H$ 


EXPLODE 
WAIT 300 


IF NH>O0 THEN NR=N1:GOTO 150 


CLS 


PRINT@ 9,10; "SCORE :":S 
PRINT@ 9,20; "UNE AUTRE 7" 


REPEAT 
D$f=KEY# 


UNTIL D$="" 


REPEAT 
D$=KEY+# 


UNTIL D$<>"" 


IF D#<>"N" 


CLS 
PAPER 7 
INK O 


THEN PRINT CHR#(17) : RUN 


PRINT CHR#(17) 


END 
D$=KEY# 
IF D$="Q" 
IF D$="W" 
IF D$="E" 
IF D$="A" 
IF D$="Ss" 


THEN 
THEN 


HX=HX-1:HY=HY-1 
HY=HY-1 

THEN HY=HY-1:HX=HX+1 

THEN HX=HX-1 

AND NS>0 THEN HX=INT (RND( 


1) #35) +2:HY=INT (RND(1) #23) +2: NS=NS-—1 


770 
780 
790 
800 
810 
910 
920 
930 
940 


IF D$="D" 
IF D$="7" 
IF D$="Xx" 
IF D$="C" 
RETURN 
CLS 


PLOT 0,26, 
PLOT 1,26, 
PLOT 2,26. 


THEN HX=HX+1 
THEN HX=HX-1:HY=HY+1 
THEN HY=HY+1 
THEN HY=HY+1:HX=HX+1 


CHR$ (168) 
CHR$# (5) 


"SCORE : "+STR# (5) 
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950 IF NH=1 THEN 1000 
960 FOR HX=1 TO NH-1 

970 PLOT 19+HX,26,H# 

980 NEXT HX 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
11350 
1210 
1220 
1230 
1240 
20 
1250 
1280 
1270 
1280 
1290 
135300 
13510 
1330 
1540 
1350 
1560 
1370 
1380 
13590 
1400 


FOR HX=2 TO 37 

PLOT HX,1,M$ 

PLOT HX,25,M# 

NEXT HX 

FOR HY=2 TO 24 

PLOT 2,HY,M# 

PLOT 37,HY,M# 

NEXT HY 

FOR I=1 TO NM 
HX=INT (RND (1) #35) +2 
HY=INT (RND (1) #23) +2 

IF SCRNCHX,HY)<>32 THEN 1090 
PLOT HX,HY,M# 

NEXT I 

FOR I=1 TO NR 

RCI ,0)=INT (RND (1) #35) +2 
RCI,1)=INT (RND (1) #23) +2 

IF SCRN(R(I,0) ,R(I,1))<€>32 THEN 12 


PLOT R(I1,0),R(I,1),R# 
NEXT I 
HX=INT (RND (1) #35) +2 
HY=INT (RND (1) #23) +2 
IF SCRN(HX,HY)<>32 THEN 1270 
X=HX 

Y=HY 

FOR I=i TO 5 

PLOT HX,HY,N# 

ZAP 

FOR J=1i TO 50 

NEXT J 

PLOT HX,HY,H# 

FOR J=1 TO 50 

NEXT J 
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1410 
1420 
1380 
15970 
1600 
1610 
1620 


1630, 


1640 
1650 
1660 
1670 
1680 
1710 
1720 
2000 
2010 


NEXT I 

RETURN 

CLS 

PAPER 3 

INK © 

FOR I1=0 TO 15 

READ A 

FOKE 46808+1,A 

NEXT I 

H$=CHRS (92) 

R$=CHRS (91) 

M$=CHRS# (170) 

N$=CHRS# (32) 

NS=5 

RETURN 

DATA 30,63,45,63,63,18,30,30 
DATA 28,28,8,62,8,8,20,20 
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